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NAME C380C - ALTERNATE CONSOLE SETUP 


PURPOSE TO SETUP THE REQUIRED AREAS TO SUPPORT THE 
ALTERNATE CONSOLE USED BY DCP AND ECP. 
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ADEVT EQU 48 DEVICE VECTORS STARTING ADDRESS 
INDIC EQU 564 DCP INDICATOR ADDRESS 

OPADR EQU 576 CONSOLE DEVICE ADDR ADDRESS 

OPTYP EQU 577 CONSOLE DEVICE TYPE ADDRESS 

SCHED EQU 584 DCP SCHEDULAR ROUTINE ADDRESS 

OPSUB EQU 587 REMOTE DISPLAY SUB-ADDR ADDRESS 
WRDCB EQU 5834 REMOTE DISPLAY DCB ADDRESS 

WRSAD EQU WRDCB+3 REMOTE DISPLAY SUB-ADDR DCB ADDRESS 
WCSAD EQU WRDCB+35 REMOTE DISPLAY SUB-ADDR DCB ADDRESS 
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RDSAD EQU WRDCB+#39 
DTSTG EQU 5886 

DTST1 EQU DTSTG+6 
DTST2 EQU DTSTG4+12 
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REMOTE DISPLAY SCREEN SIZE ADDRESS 
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FUNCTION SECTION 
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ae 3 RK ae ae 3 2 OK a aK OK aK ok ok 2k ok oe oe ok 


3K 2K Ke a oie He ae XK ke ah He ae ae eK hk a ok oe 2K a he aK Re oe ae oe he oie ak oe Ke Ok Cee en eee 
* 
: MESSAGES USED BY PROGRAM : 
Ae Re ae a oe he a a ae 3 ae i ic 2 oe a afc ie ic ok 3c 9K he ik af oe ae aK oe he ae ae 2c fe ac ae ae ae ak ae oe aie hc he i ie ae a ke hc ie ae he ae ogc 2c oe fe ae A he 2 ok oe Ke aK 
x 
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DC A (CODEO) ESSAGE CODE 
FSTMG DC C'PPRESS ANY KEY WITHIN mae SECONDS TO CHANGE KEYBOARD ! 

DC C'DEFINITION. § 

DC Xx'O0080! EOM AND MESSAGE CONTROL 
FSTMA DC A(FSTMG MESSAGE ADDRESS 

DC A CODE I} MESSAGE CODE 
SECMG DC C'DEFINE KEYBOARD ! 

DC x'0080* EOM AND MESSAGE CONTROL 
SECMA DC A (SECMG geeeace ADDRESS 

DC A CODES SSAGE CODE 
TRDMG DC C'PRESS ONLY THE KEY REQUESTED! 

DC xX*0080!? AND MESSAGE CONTROL 
TRDMA DC A(TRDMG PeSSAGE ADDRESS 

DC x {coped} MESSAGE CODE 
FORMG DC C'TATTENTION !* 

DC X'0080'* EOM AND MESSAGE CONTROL 
FORMA DC A (FORMG MESSAGE ADDRESS 

DC A (CODEN MESSAGE CODE 
FIVMG DC C'ENTER § 

DC X'0080!? EOM AND MESSAGE CONTROL 
FIVMA DC A (FIVMG MESSAGE ADDRESS 

DC n {copEa} MESSAGE CODE 
SIXMG DC C'PROGRAM FUNCTION sak es 

DC x'0080° OM AND MESSAGE CONTROL 
SIXMA DC A (SIXMG MESSAGE ADDRESS 

DC i {CobE 1} MESSAGE CODE 
SEVMG DC C*MOVE CURSOR LEFT'® 

DC X'0080° EFOM AND MESSAGE CONTROL 
SEVMA DC A (SEVMG MESSAGE ADDRESS 

DC {Covet} MESSAGE CODE 
EGHMG DC C'MOVE CURSOR RIGHT ! 

DC X'0080° EOM AND MESSAGE CONTROL 
EGHMA DC A (EGHMG MESSAGE ADDRESS 

DC A CODE’ MESSAGE CODE 
NINMG DC C'SPACE OR BLANK® 

DC X*'*0080°8 EOM AND MESSAGE CONTROL 
NINMA DC A (NINMG MESSAGE ADDRESS 
TENNG he pictre" MESSAGE CODE 

DC Xx'O0080! EOM AND MESSAGE CONTROL 
TENMA DC A (TENMG MESSAGE ADDRESS 

DC A(CODE1 MESSAGE CODE 
ELVMG DC C'*NO KEYBOARD INTERRUPT WITHI 15 SECONDS ! 

DC x*0080* EOM AND MESSAGE CONTROL 
ELVMA DC A (ELVMG) MESSAGE ADDRESS 
PS SSS SSL SSS SSS STS SSE SS SS PL SSE SSP SPSS SESE SST S SS SSS SPSS ES SELES SES SS ELSES SE TS TS 
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X*OQ0008 BLANK IDCB 
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A (0 
* START TAabe STORE IDCB - DISPLAY STATION 
IIDCB DC X*7100° START IMAGE STORE IDCB 
IIDC1 EQU A(IMDCB) 
* START CONTROL STORE IDCB - DISPLAY STATION 
CIDCB DC X*7200° START CONTROL STORE IDCB 
CIDC1 aa K(CSDCB) 
* START CONTROL STORE IDCB ~ DISPLAY STATION 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
OO1F 46 7200 251 FIDCB DC X*7200°8 START CONTROL STORE IDCB OO1FDA 0000 369 CURRA DC veh ADDRESS OF CURRENT DEVICE ADDRESS 
OO1F47 252 FIDC1 Ru A UetCc O0OO1FDC 00000000000000000 371 DSPAD DC 3 6x" Ot DISPLAY 4978 DEVICE ADDRESSES 
CO1F48 1F 82 253 D Aaa B) 0020DC 0000 373 RETIN DC A (*-* ALTEFNATE CONSOLE ERROR INDICATOR 

254 * START C NTROL STORE IDCB - REMOTE DISPLAY STATION OO20DE 0000 375 ERRET DC A (*- * ADDRESS SAVE AREA DCP ERROR RETURN 
OO1F4A 7200 255 XIDCB DC X'*72005 START CONTROL STORE IDCB O0O020F0 0000 376 RETRN DC A (*-* ADDRESS SAVE AREA DCP RETURN 
CO1F4UB 256 XIDC1 aa TinGes one 0020F2 0000 378 KEYSV DC A (*-* ADDRESS SAVE AREA KEY TABLE 
OO1FYUC 1F92 257 D A (XSDCB } OO20E4 0000 380 ACSAV DC A (*-* SAVE CONSOLE INTERRUPT ADDRESS 
258 x START IDCB - REMOTE DISPLAY STATION 0020E6 0000 381 DSVTR DC A (*-* SAVE DEVICE VECTOR ADDRESS 
OO1FUE 7000 259 YIDCB DC X¥'*70008 START CONTROL STORE IDCB 0020E8 0000 382 DSSAV DC A (*- * SAVE ORIGINAL VECTOR POINTER 
OO1FYUF 260 YIDC1 EQU YIDCBtONE OO20EFA 0000 384 R6SAV DC A (*-* SAVE R6 RFTURN ADDRESS 
001F50 1FA2 261 D A (YWDCB) 0020EC 2104 386 SRSV DC A {SRHEA TEA 
262 * READ ID IDCB OO20EE 2104 387 SRS DC A (SRHEA HEA 
O01F52 2000 263 RIDCB DC X*20008 READ ID IDCR OO20FO 20F2 388 DC A(SRLEA LEA 
001F53 264 RIDC1 EQU RIDCBtONE 0020F2 0000 389 SRLEA DC A (0 TFA INFO 
OO1F54 0000 265 RIDC2 DC of ala | OO20F4 0000 390 SRR7T DC A (0 R7 SAVE AREA 
266 * PREPARE IDC 0O020F6 0000 391 SRRO DC A (0 RO SAVE AREA 
OO1F56 6000 267 PIDCB DC xt6ooo: PREPARE IDCB 0020F8 0000 392 SRR1 DC A (0 F1 SAVE APEA 
001FS7 268 PIDC1 EQU PIDCBtONE OO20FA 0000 393 SRR2 DC A(0 P2 SAVE AREA 
OO1F58 0005 269 DC ete) 0020FC 0000 394 SRR3 DC A(0O R3 SAVE AREA 
270 * UN-~PREPARE IDCB QOO20FE 0000 395 SRR4Y DC A(0 R4Y SAVE AREA 
OO1TF5SA 6000 271 UIDCB DC x*6000°8 UN-PREPARE IDCR 002100 0000 396 SRR5 DC A (0 R5 SAVE AREA 
OO1F5B 272 UIDC1 Ego UIDCBt+ONE 002102 0000 397 SRR6 DC A (0 R6 SAVE AREA 
OO1F5C 0000 273 A(0 002104 398 SRHEA EQU * END OF REGISTER STACK ADDRESS 
274 * RESET cates HOO 2 OR OO ORR OOK OO OK CK GR GI IKK RR RG ICI K tek a 
OO1FSE 6F00 275 SIDCB DC X'6FOO! RESET IDCR 401 * . 
OO01F5F 276 SIDC1 EQu SIDCB+t+ONE 4Q2 * DATA CONSTANTS * 
001F60 0000 277 D A (0) 403 * * 
279 SOOt TE NAE TET REARS CCST SASEE ETERS Eee T ET eA TST eee LE PEEL ST ACES eee S eT Lh RAE 2 a a OR I A a a a a i CR A a Re fc 2 a 2 oe ie ea a i ek oe tok 
280 * 002104 80 405 FULSC DC Xx'8sor FULL SCREEN INDICATOR 
281 * I/O CONTROL DCB#S ; 002105 40 4QO6 HAVSC DC X'*4Qr HALF SCREEN INDICATOR 
282 * x 002106 00 4O9 KE DC Xx*OO? ATTENTION KEY 
283 RRR KIO OK AO I OI OR RIOR IOI a i aR I I kk ke kak akc akc ae ke afc 2c ake akc of fc kc 002107 00 410 HEXOO DC Xx*'oo? ENTER KEY - CONSTANT OF QO 
284 * START IMAGE STORE DCB -—- DISPLAY STATION 002108 00 411 DC x'0o0o! PROGRAM FUNCTION sey) KEY 
O01F62 0000 285 IMDCB DC A{0 DCB CONTROL WORD 002109 12 412 DC X'12! MOVE CURSOR LEFT EY 
OO01F64 9000 286 DC A (0 CHARACTER GENERATOR ADDRESS O0O0210A 13 413 DC x'173° MOVE CURSOP RIGHT KEY 
OO1F66 0000 287 DC A(O NOT USED 096210B 40 414 DC cro RBULANK 
001F68 0000 288 DC A (0 NOT USED 00210C FOFITF2F3F4F5SF6F7F 415 DC C'*0123456789'! NUMBERS 
OO1F6A 0000 289 DC A (0 NOT USED 002116 C1C2C3C4HC5C6C7TC8C 416 DC CtABCDEFGHIJKLM'® ALPHEBET 
OOTFEC 0000 290 DC AO CHAIN ADPRESS 002123 DOD6N7TDBDIEZESZEUE 417 DC C'*NOPORSTUVWXYZ!* 
OO1FEE 0800 291 DC A (2 ai BYTE COUNT 002130 FF 418 HEXFF DC X'FFt END OF TABLE - CONSTANT OF 255 
O01F70 3000 292 DC A (IMBUF) DATA ADDRESS 002131 01 420 ICDS DC X'O18 ATTENTION KEY 
293 * START CONTROL STORE DCE ~- DISPLAY STATION 002132 00 421 DC Xx*'oOo! ENTER KEY 
001F72 0000 294 CSDCB DC A 9) DCB CONTROL WORD 002133 O07 422 DC X'O7! PROGRAM FUNCTION pea! KEY 
O01F74 8000 295 DC A (32768) CHARACTER GENERATOR ADDR + E BIT 002134 00 423 DC X'00' MOVE CURSOR LEFT KEY 
O001F76 0000 296 DC A(0O NOT USED 002135 00 424 DC x'oo? MOVE CURSOR RIGHT KEY 
0O01F78 0000 297 DC A (0 NOT USED 002136 00 425 DC x*00? BLANK 
OO1F7A 0000 298 DC A(O NOT USED 002137 00000000000000000 426 DC X'O0O0D0D0D0DDDDDNDDDONDNDODOO0CO! NUMEERS 
001F7C 0000 299 DC A (0 CHAIN ADDRESS 002144 00000000000000000 427 DC X'*QODODDDDQDDD000N000N00000000000!' ALPHEBET 
QOO1FT7E 1000 300 DC A(4& BYTE COUNT O0214E 00000000000000000 428 DC X*O0OO00QN0000000000000000000000! 
001F80 3000 301 DC A a ) DATA ADDRESS 00215B FF 429 DC X'FF? END OF TABLE 
302 * START C iPROL STORE DCE - DISPLAY STATION 00215C 20 431 IKYS DC X*20' ATTENTION KEY 
001F82 0000 303 FTDCB DC A 9) DCB CONTROL WORD 00215D 20 432 Dc X*20! ENTER KEY 
001F84 8c00 304 DC A (35840) CHARACTER GENERATOR ADDR + E BIT 00215E 20 433 DC X'20# PROGPAM FUNCTION ee K EY 
001F86 0000 305 DC A (0 NOT USED QOO215F 10 434 DC X'10° HOVE CURSOR LEFT KEY 
001F88 0000 306 DC A(0O NOT USED 002160 10 435 DC X'108 MOVE CURSOR RIGHT KEY 
OO1F8A 0000 307 DC A(O NOT USED 002161 4x00 436 DC X'oor BLANK 
OO01F8C 0000 308 DC A {0 CHAIN ADDPESS 002162 00000000000000000 437 DC X*QOD0D0DDDDODNONN0 00000000! NUMBE 
OO1F8E 0400 309 DC A{1024 BYTE COUNT 00216C 00000000000000000 438 DC X'O00D0DD0DDNDNDNDCNDNDONDODNDNDDOONDONNNO!' ALPHERET 
001F90 3cC00 310 Cc A {(FTBUF) DATA ADDRESS 002179 00000000000000000 439 DC X'00000000000000000000000000! 
311 * START CONTROL STOFE DCB/COMPUTE CHECKSUM - REMOTE DISPLAY STATION 002186 FF 4Yug DC X°'FF? END OF TABLE 
O01F92 0001 312 XSDCB DC A DCB CONTROL WORD 002187 07 W4U2 RMDSA DC AL1(7 NUMBER OF ENTRIES 
001F94 8040 313 DC A (32832) CONTROL STORE ADDRESS 002188 01 Y43 DC AL1(1 OFFSET INTO CONTROL STORE AREA 
001F96 0000 314 DC A(0 NOT USED 002189 EY WUY DC CZ! CHARACTER ~- EBCDIC TABLE 
001F98 0000 315 DC A (0 NOT USED 00218A 03 4“4ys DC X'O3! TRANSFER CODE 
OO0O1F9A 0000 316 DC A (0 NOT USED 00218B E7 46 DC crx! CHARACTER - EBCDIC TABLE 
OO1F9C 0000 317 DC A (0 CHAIN ADDRESS 00218C 03 Wy? DC X*O03° TRANSFER CODE 
OO1F9E OFCO 318 DC A(4 “eae BYTE COUNT 00218D C3 44g DC crc CHARACTER ~ EBCDIC TABLE 
O0O01FAQO 3040 319 DC A {RMBU DATA ADDRESS 00218E 03 U9 DC x'oQ3! TRANSFER CODE 
320 * WRITE DATA STRING DCB — REMOTE DISPLAY STATION 00218F £5 450 DC cry! CHARACTER -~- EBCDIC TABLE 
OO1FA2 0000 321 YWDCB DC A (O) DCB CONTROL WORD 002190 03 451 DC X'03' TPANSFER CODE 
OO1FA4 27 322 YWCM DC xt27°* STATION COMMAND MODIFIER 002191 C2 452 DC C'Bt CHARACTER - EBCDIC TABLE 
OO1FAS 00 323 YWSAD DC x'oo! STATION ADDRESS 002192 03 453 DC X'o3t TRANSFER CODE 
00 1FA6 0000 324 DC A (0 NOT USED 002193 DS& 454 DC C'nt CHARACTER ~- EBCDIC TABLE 
OO1FA8 0000 325 DC A(O NOT USED 002194 03 455 DC X*0O3! TRANSFER CODE 
OO1FAA 0000 326 DC A (0 STATUS ADDRESS 002195 D4 456 DC Ctmt CHARACTER - ERCDIC TABLE 
OO1FAC 0000 327 DC A (0 CHAIN ADDRESS 002196 03 457 DC X*'o3! TRANSFER CODE 
OO1FAE 0012 328 DC A(1 BYTE COUNT 458 * 
OO01FBO 1FB2 329 DC A 1S TG DATA ADDRESS 002197 OB 459 DC AL1(11 NUMBER OF ENTRIES 
331 PE ee ee a EEE ee UIE BOM Soe iene yp ee Ene 002198 OF 460 DC AL1(15 OFFSET INTO CONTROL STORE AREA 
332 * x 002199 40 461 DC Cf. % CHARACTER - EBCDIC TABLE 
333 * REMOTE DISPLAY DATA STRINGS * OO219A OF 462 DC X*OF'® TRANSFER CODE 
334 * * 002198 00 463 DC X'00O! CHARACTER - EBCDIC TABLE 
335 OI OOO IO IO ICI IO IOI IO IG II I II II I tok kek kaka kok kk cok 00219c 00 64 Dc Xx'oo?r TRANSFER CODE 
336 * DATA STRINGS TO TEST FOR 12/24 LINE SCRFEN 00219D C1 465 DC Cra? CHARACTER - EBCDIC TABLE 
337 * 24 LINE SCREEN 002198 03 466 DC X*O3' TRANSFER CODE 
00 1FB2 O44O 338 YDSTG Dc Xx*oOaug? CLEAR SCREEN 00219F £2 467 DC crst CHARACTER - ESCDIC TABLE 
OO1FB4Y 094114008111750 339 DC X¥'*041140081117508 FORMAT ROTTOM LINE 0021A0 03 468 DC X*03!8 TRANSFER CODE 
OO1FBB 1D4020200050 340 Dc X*1D4020200050! FOR INPUT FIELD 0021A1 on! 469 DC c'pt CHARACTER - FBCDIC TABLE 
001FC1 131801 341 DC X*131801! POSITION CURSOR BOTTOM LINE Q0021A2 03 470 DC X'O3! TRANSFER CODE 
001FB9 342 DTST5 EQU YDSTG+t+7 REMOTE DISPLAY SCREEN SIZE ADDRESS QO21A3 C6 471 DC Cire ARACTER - EBCDIC TABLE 
001FC2 343 DTST6 EQU YDSTG+16 REMOTE DISPLAY SCREEN SIZE ADDRESS QO021A4 03 472 DC X'03! TRANSFER CODE 
344 * DATA STRINGS REPLACE TABLE FOP 12 LINE SCREEN 0021A5 C7 473 DC Cct'Gt CHARACTER - EBCDIC TABLE 
OO1FCH OY 345 SHORT DC AL1 ab # OF ENTRIES THIS SECTION 0021A6 03 “74 DC X*'O3! TRANSFER CODE 
QO1FCS OC 346 DC AL1(12) SCREEN SIZE OO21A7 C8 475 pc C'He CHARACTER - EBCDIC TABLE 
OO1FC6 1704 347 DC A(DTST1 ADDRESS TO REPLACE 0021A3 03 476 DC X'Q3' TRANSFER C 
OO1FC8 1763 348 DC A(DTST3 0021A9 D1 Y77 DC crgt CHARACTER ~ EBRCDIC TABLE 
OOTFCA 1765 349 DC A(DTSTY OO21AA 03 478 DC X*'O3! TRANSFER CODE 
001FCC 1FC2 350 DC A(DTST6 Q0O021AB D2 479 DC C'K! CHARACTER ~- EBCDIC TABLE 
351 * OO21AC 03 480 DC X'0O3! TRANSFER CODE 
OO1FCE 02 352 DC AL1(2) # OF ENTRIES THIS SECTION OO2T1AD D3 481 DC CrLs CHARACTER - EBCDIC TABLE 
OO1FCF OB 353 DC AL1 aah SCREEN SIZE OO2Z1AE 03 482 DC X'O3! TRANSFER CODE 
OO1FDO 170A 354 DC A(DTST 483 * 
001FD2 1FB9 355 DC A (DTST5 OO21AF OA Y8y DC AL1(10 NUMBER OF ENTRIES 
356 * 0021B0 21 485 DC AL1(33 OFFSET INTO CONTROL STORE AREA 
OO 1FDY 00 357 DC AL1(0) END OF TABLE 0021B1 D8 486 DC at: CHARACTER - EBCDIC TABLE 
359 [RRO oR OK Ar RO OO a OR a kkk oii i ici i i tak ick ak aka ike ak ak ak ak akc 0021B2 03 487 DC X*Q3' TRANSFER CODE 
360 * * 0021B3 E6 488 DC ctw CHARACTER ~ EFBCDIC TABLE 
361 * SWITCHES AND BUFFERS * 0021B4 03 489 DC X'03! TRANSFER CODE 
362 * * 0021B5 C5 490 DC CtEt CHARACTER ~— EBCDIC TABLE 
363 IO ORO OI IC II IG io I IO a ii i i gaia ak ttc kak aie kote ak ak ake afc akc fc 0021B6 03 4914 pc X'03' TRANSFER CODE 
OO1FD5S 00 364 QUEST DC X'OOr CHANGE KEYBOARD SETUP 0021B7 D9 492 DC Chk? CHARACTER - ERCDIC TABLE 
O0O01FD6 00 365 REDEF DC x*oo? RFDEFINE KEYBOAPD PASS 0021B8 03 493 DC X'03! TRANSFER CODE 
OO1FD7 00 366 NONAC DC x'oot NON ALTERNATE CONSOLE PASS 0021B9 E3 “OY DC Ctr? CHARACTER - EBCDIC TABLE 
0OO1FD8 0000 368 LASTA DC A (*~-*) ADDRESS OF LAST DEVICE ADDRESS + ONE OO021BA 03 495 DC x03 TRANSFER CONE 
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COPYRIGHT IBM CORP 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT Rina. Ng eas - conn ALIGN 
Q021BB ES 499 De OK #03 TRANSFER CODES | 614 * penne PoEans STATION CONTROVERLAY NAME 
e t 
OOS1BD Ra 498 DC Erg CHARACTER - EBCDIC TABLE 00224D DECSFUCUFO 615 RMOVL DC vos ERT AVAIL STOPAGE 
1031 TRANSFER CO 617 DC 
g3a1EF o3 $6 bE a TERMSEERcopgcore MAPLE eee ae €18 Cnovs BevTTOEEESREN STATE OVFPAAY oyenuay wane 
€ 
O021C1 De 302 De tor CHARACTER ~ EBCDIC TABLE SnooeR Gaus €45 STOVE BE Geen NEXT AVAIL STOPAGE 
193" TRANSFER * 
0021C2 03 SOR eae CHARACTER - EBCDIC TABLE 633 5 WRITI SVC CONTROL BLOCK 
OOs1ch OS 505 DC X'O3' TRANSFER CODE Ooo ae 
207 NUMBER OF ENTRIE ese q v DC RYFTOVL#ONE} OVERLAY NAME ADDRESS 
WFTO 
Ooo1ce 40 308 DC ALA (64) OFFSET INTO CONTROL, STORE AREA SO DSEG:: acon ese DC A (PTBUF) STORAGE ADDRESS 
eget . 
OO31c8 3c 249 DE XN3ce TRANSFER CODE eb2zen: 0200 e538 + REMOTE DISPLAY STATION CONTROL STORE OVERLAY 
g031e3 ke OGY SRUAGEEN 5 FOCOIC TABLE 902262 2285 £43 tnmoy Ben nanort rons SUSTLAT HABE ADDRESS 
OO021CA 3C 512 DC X'3C? 2 002264 3040 630 WORD COUNT 
Bpuae ne 243 De 3c TRANSFER CODE. Sores 002266 OFCO se pk Gus tc UEGE (Oe coca) ATAU RTE AUREL bs eA een es 
oo2icc 3C ae pe’ ease CHARACTER - EBCDIC TABLE e35 * is 
516 DC X'3ct TRANSFER CODE 635 * NAME ALTCN ; 
OO2ICr Pa 243 De BSC TRANSFER CODE e393 x OVIDE A ROUTINE TO LOAD THE CORRECT CONSOLE + 
0031D1 #5 319 DC cr5t CHARACTER — ee) ae O38 & PURPOSE OVERLAY AND ASSIGH THE ALTERNATE CONSOLE. * 
0021D2 3C 220 Der ae CHARACTER — EBCDIC TABLE ona s D THE CORRECT OVERLAY INTO STORAGE AT THE . 
OO31Da 3c 35% DC ¥" 8c TRANSFER CODE. uy METHOD 1s END OF DCD7ECP TO SUPBORT ONE OF THESE ALTERNATE * 
00315 F7 1523 DC c'7' CHARACTER - EBCDIC TABLE 642 * CONSOLES. , : 
524 DC X'3C! TRANSFER CODE 643 * TTY - C380 : 
0031D7 FS 525 DC CB! CHARACTER - EBCDIC TABLE ee ncaa = 63802 * 
1D8 3c 526 DC X'3c' TRANSFER CODE 645 * PRINTER - €3803 : 
a 236 * oe ee ae eng +i Gok ERS HENGE WR RESON e Rea Aca ek a Kah es 0 0 eh a ee 
E * 
0021DB FF 230 DC «xX FF! MIDDLE OF TABL REaSeG -Ga0e OOKS gag AETCN Oey OOPADR,RO GET CONSOLE DEVICE ADDRESS/TYPE 
0021Dc 01 532 RMDSB DC AL1(1 NUMBER OF ENTRIES 003506c 6800 2694 651 BZ NOCON BR/NO ALTERNATE CONSOLE ASST 
0021DD 68 533 DC AL1(104) CHEE eon ce booke eee 002270 4224 21F8 652 oo MMA ACOVL, R2 ADDRESS OF 
0021DE 00 534 ENTER DC AL1(0 = : 002274 653 ALT svat con snes ae ok 
0021DF 00 Zee ee a} TRANSFER CODE) 802376 1005 e35 ce Arsh 4?° BR/YES ~ CONTINUE TO CHK DEV 
meee we 537 * : 002278 020A 656 ABI TEN, R2 NEXT ALT CON ENTRY 
OOZTET 02 ae He ALA (4) OFFSET INTO CONTROL STORE AREA 00227A C180 oot oe ae BR/NO - TRY NEXT 
O021E2 72 237 We cee C ~ EBCDIC TABLE 00227C 18FB pee a BR/NO ALT CON SUPPORT 
0021E3 00 540 CURLT DC AL1(0 CURSOR POSITION KEY ~ LC BLE BOooue RanD osen ee B NOCON R/ 
0021F4 00 544 DC AT 1 {0} - UC EBCDIC TA bosses 660 ALTO1 EQU * fa MeueE ROL 
Rootes 220 245 te X'8G' TRANSFER CODE 005535 3042 661 SRL EIGHT POSITION T VICE ADR 
0021E6 00 543 CURRT DC AL1(0 CURSOR POSITION KEY - LC EBCDIC TABLE 002282 3042 oot Ee ee ao BEECH ADE TN READ 
0021E7 00 544 DC Ar 140} - UC EBCDIC TABLE 605588 050 TBE 1F52 663 MVA  RIbCB,IDCB SAVE THE IDCB ADR 
O021E8 80 545 pc 8 xX" 808 TRANSFER CODE 00228E 680C 1F52 664 EO Tees eaaae BRUNO RLT CON SUPPORT 
546% 92 6F05 2594 
g02189 93 nt De ALA Sida OFFSET INTO CONTROL STORE AREA 002236 BAB 0008 1F5u 666 ee ABS eroHe yen Tne? ER/NO - NO ALT CON SUPPORT 
O0S1ES 00 B49 ATTEN DC -ALI(O) ATTENTION KEY - LC EBCDIC TABLE BOO bon Ghod 668 MVR (R2 ONE) » R3 ADDRESS OF CONSOLE OVERLAY NAME 
0021EC 00 550 DC aL 0} TRANSFER cope 7 UC EBCDIC TABLE OO29A4 9E6T ec VBI Ee GET NUMBER IDCB'S TO MOVE 
OO SIE 50 22) PPK DC 13 PROGRAM FUNCT KEY - Ve Chop e aes nooo KG oon 176C 671 atnon BAT wIDCE, R2 ADDR IN-ADDR 1ST IDCB 
AL 7 
803180 80 584 De x¥ads mene eeser O0D5AC CORB 0001 673 HVE RO 0 4 (R2,0NE) MOVE IN ALT DEV_ADDR IN IDCB 
0021F1 00 555 RESET DC AL 0) ERROR RESET KEY - LC EBCDIC TABLE 0022B0 0204 674 ABI ORR 2 gene coun oop 
0021F2 00 22g De Ara {9 TRANSFER CODE 002386 3005 ere StL ve RO EACH ADDR 2 BYTE 
559 DC AL1(0 END OF TABLE 178E 678 MVW RO,ACYTP 
Sine si] ane Be Halas Sevicelrhnenedel SOURTUP ABoneia T=, © BRB2RE 000 0 a aris Actes feo eat ee 
0021F6 27C0 Zee EEC E RCE RUEE OSU C SCE CE OEE CHIE GE SOC EE Oo OO Eo OE ET AE Boobs caoe ieee ce 681 MVWI ACRES, IDCB SAVE THE IDCB ae 
: 682 IO ACRES 
267 * ALTERNATE CONSOLE OVERLAY CONSTANTS : BOSSaO USO A Ten AGTG 683 NVWI ACPRE, IDCB SAVE THE IDCB ADR oe 
268 5 REE ES EEE EE EAN 64 WEEEHAA 5 EER ERS Es 04 4d EER aR EE ORR OEN E ER 002206 Bade ae 556 he cB OpTEP, DSP2 DISPLAY STATION CONSOLE 
B - 
Sr eee cas $3280 $928 $203 2216 «889k BBS, ss REMOIE D1SBLht sEArvON coNSOLE 
0021F8 40 572 ACOVL DC. x'4o8 OVERLAY Nas O023EA 6800 23D6 688 BE  DSREM BR/Y suapeeo FAR 
573 DC C'c3801! OVERLAY NAME 802 258E 689 B YESCN BR/SET CONSOLE GO 
Oo tbe noha 27% DC A (#=* NEXT AVAIL STORAGE O022EE 680 C90 * 
eS eee 7 DE x f00 1p READ ID ASSIGNED 691 * RETURN HERE TO COMPLETE CONSOLE ASSIGNMENT 
ee Oa 278 + DISPLAY STATION Ser oem ntes ee eee 
303303 CSP3FBFOF2 244 De €1e3802' OVERLAY NAME ARGOS. Boe ATER Do0e 694 MV LT11, ACINT NEW INTERRUPT ADDRESS 
0000 279 UU Ge PeRn Th Mest eanD 0022F8 4020 17BE 1770 695 MVWI COMMN,IDCB SAVE IDCB A 
ane Xouobs READ ID ASSIGNED 1796 696 TO. COMMN PERFORM ONE OF THE FOLLOWI 
581 Dt P ts DEVICE TYPE 698 x DISPLAY ~- CLEAR SCRE 
at ee 283 Pe Be bac 3802" OVERLAY NAME 609 * PRINTER - SKIP LINE 
902200 CIF IF SFOF2 283 DE OR (RSH NEXT AVAIL STORAGE 700 * REMOTE DISPLAY - READ STATION SIE 
BOS31h OBOE 585 DSRID DC Xone! READ ID ASSIGNED 002302 6F05 2330 701 BNCC SEVEN,ALT15 BR/BAD CC — NO ALT CONSOL 
ee ee 586 * REMOTE DISPLAY STATION 6 6F03 2810 702 BAL  WAITL,R7 WAIT FOR INTERRUPT 
002216 E4 2eL MSrs De Aiea. BERR EAE 002308 8012 703 a0 ALT15 BR/LOST INTERRUPT - NO ALT CONSOLE 
' ' OVER 11 EQU 
90331¢ $000 389 De (R=) | SE Se ee 90330€ 6B05 2330 705 *¥7" Bhec THREE, ALT15 BR/BAD CC - NO ALT CONSOLE 
p94gic 590 DC X"04168 READ ID ASSIGNED 002310 4020 176A 2330 106 MVA  ALT15;ACINT NEW INT ADDRESS 
Bed: Saree 591 * PRINTER 002316 OFO3 707 MVBI THREE,R7 CHANGE TO LEVEL 
002220 64 592 DC Seer OVERLAY NAME 002318 6004 708 SVC CHNGE THREE 
00222) C3P3FBFOFS3 208 De A (#=* NEXT AVAIL STORAGE 6F03 281C 710 BAL WAITS,R7 WAIT .8 SECONDS 
§03358 O20e 595 DC X*0206° READ ID ASSIGNED 00231A 110. 
ee ee eae RRTNTER DEVICE TYPE 00231E 8828 20E4 176A 712 AVE INDICIR? ADR OF DCP INDICATORS 
t ‘ V 
003358 | CSF3F8FOF3 238 DE C3803" OVERLAY NAME pessoa iene aa TBTS (RTF ALTDV) IND ALT DEV. ASSIGNED 
903332 930¢ oO 4 De x 10306: END OF PREVIOUS TABLE 00232C 6812 20E0 716 B ETRN* RETURN TO DCP/CONSOLE 
t t * 
voce we eO2 + DISPLAY STATION CONTROL STORE OVERLAY ‘ 18 + RETURN HERE TO INDICATE NO ALTERNATE CONSOLE 
RS29E gangrene ie GEE Mall Bronace sa He iets ape 
Beooce 00 605 DC X00! ALIGN 002330 4724 0234 721 MVWI INDIC,R7 ADR OF DCP INDICATORS 
meng 606 * DISPLAY STATION FUNCTION TABLE OVERLAY 005334 UFGE 722 TBTS (R7,LODED SET THE LOADED INDICATOR 
607 FTOVL DC C'C380E' OVERLAY NAME 002336 4F87 723 TBTR (R7,ALTDV RESET ALTER DEVICE 
Boosie. done 208 DC K (¥=%) NEXT AVAIL STORAGE 005338 UFuE 724 TBTS (RV, STOP) SET STOP INDICATOR 
005344 00 609 DC X00! ALIGN 00233A 6808 0240 725 MVW  OPADR,RO WAS AN ALTER IN TABLE 
B19 Saovn, BEEPML RUNNY CHABACTEN THAGH,OTEDLAT, be ale a 5 een 
002245 C3F3F8F0CE6 611 IMOVL DC = C 002338 1912 
00224A 0000 612 DC K (¥=*) NEXT AVAIL STORAGE 
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LCCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
002342 3242 728 SRL EIGHT,R2 SHIFT ADP TO BITS 8-15 B44 x 
002344 C228 1F5R 729 MVB R2,UIDC1 MOYE ADR TO UN-PREP 00243C 4124 21DC 845 MVA  RMDSB,R1 REMOTE DISPLAY DEFINITION TABLE 
002348 4020 17BE 1F5A 730 MVA urbce, IDCB IDCB ADP 002440 846 DSRO2 EQU- * 
00234E 680C 1F5A 731 10 UIDCB UN-PREP THE ALT 902440 Cco50 847 MVB (B4) +, RO NUMBER OF ENTRIES/THIS GROUP 
002352 4020 17BF 1774 732 MVWI ACRES,IDCB IDCB ADDRESS 002442 100A 848 IZ SRO4 BR/END OF TABLE 
002358 680C 1774 733 IO ACRES. PFESET THE ALTERNATE DEVICE 902444 C250 849 MVB (R1)+,R2 OFFSET INTO CONTROL STORE AREA 
00235C 3209 734 SLL  ONE,R2 POSITION FOR WORD ADDRESSING 002446 850 DSRO3 FOU) * 
00235E 0230 735 ARI ADEVT,R2 POSITION IN INT VECTORS 002446 8264 3300 851 MVB R2,RMELC), (R1) + SAVE VALUE FOR LOWER CASE FUNCTION 
002360 88A0 178C 736 MVW ACSTR, (R2) VECTOR FOR STRAY INTERRUPT Q90244A 8264 3380 852 MVB R2,RMEUC), (R1) + SAVE VALUE FOR UPPER CASE FUNCTION 
002364 737 ALT16 EQU OO24U4ER 8264 3280 853 MVB R2,RMTID), (R1)+ SAVE VALUE FOR TRANSFER CODE 
002364 6812 20DE 738 B ERRET# RFTURN TO DCP/NO CONSOLE 002452 0201 854 ABI NE, R2 INCREMENT OFFSET POINTER 
TU O AK a Ra 2 he 2 a ok ok ke Kk kok kk kk kk kk SRK i ae ok kk ke ake ake akc aie ake akc akc kc ok ake ok akc fe 002454 BBFS8 855 JCT DSRO3,R0 BR/DO ALL ENTRIFS THIS GROUP 
741 * * 002456 5OF4 856 J DSRO2 BR/DO NEXT GROUP 
742 * NAME RDS1/RDS2/CKSM/1I01 x 857 * 
743 * x 002458 858 DSROY EQU- * 
744 * PURPOSE TO PROVIDE A SUBROUTINE TO PERFORM EACH OF THE x 002458 4724 0180 859 MVWI THR84,R7 LENGTH OF TABLE 
745 COMMON APPIICATIONS USED BY THE PROGRAM. x 00245C 4224 3280 860 MVWI RMTID,R2 STARTING ADDRESS OF TABLE 
746 * x 002460 0900 861 MVBI ZERO,R1 FILL VALUE 
747 * METHOD 1. PERFORM COMMON ‘SVC. READI' FUNCTIONS. x 002462 294C 862 FFN R1, (82) ZERO OUT TABLE 
748 * 2. PERFORM COMMON CHECKSUM FUNCTIONS. * 863 * 
749 * 3. PERFORM COMMON 1/0 FUNCTIONS. x 002464 4124 2187 864 MVA  RMDSA,R1 RFMOTE DISPLAY DEFINITION TABLE 
7150 * x 002468 0B00 865 MVBI ZERO,R3 INITIAL ZERO SWITCH 
751 Pe Stet SSS SS SS ST TS SP PT SS SS SS SSS SSS SSS SSS TSS SSCS SSC SCCoSCSCOSS SSL OST OCS? Ce Te OO24U6A 866 DSROS5 EQU *x 
752 * READ OVERLAY 00246A C050 867 MVE R1) +, RO NUMBER OF ENTRIES/THIS GROUP 
002368 753 RDS1 EQU 00246C 1010 868 JZ SRO9 BR/END OF TABLE 
002368 6EOD 20EA 754 MVW ROSAV SAVE RETURN ADDRESSS OO2U6E 1A02 869 JNN  DSRO6 BR/WIDDLE OF TABLE 
00236C OFO3 755 MVBI THRER. R7 CHANGE TO LEVEL 002470 OBO1 870 MVBI ONE,R3 SET SWITCH 
00236E 6004 156 SVC CHNGE THREE 002472 SOFP 871 J DSRO5 BP/DO NEXT ENTRY 
157 * 002474 872 DSRO6 EQU- * 
002370 73E4 7158 MVW R3,R7 OVERLAY NAME ADDRESS 002474 C250 873 MVB (R1)+,R2 OFFSET INTO CONTROL STORE AREA 
002372 601F 759 SVC READI READ IT INTO STORAGE 002476 874 DSROT EQU * 
002374 75A7 760 TR R5,R5 READ OF 002476 8188 3300 875 MVB (81) (R2,RMELC) SET VALUE FOR LOWER CASE 
002376 6801 2594 761 BNZ  NOCON BR/NO - NO CONSOLE SUPPORT OO247A 7367 876 IR 3,83 SECOND HALF OF TABLE 
00237A 6812 20EA 762 B R6SAV* RETURN OK 00247C 1001 877 JZ DSRO8 BR/NO - STILL FIRST HALF 
7163 * READ OVERLAY OO247E 0101 878 ABI ONE,R1 CHANGE VALUE FOR UPPER CASE 
002375 764 RDS2 EQU 002480 879 DSRO8 EQU- * 
00237E GEOD 20EA 765 MVW R6SAV SAVE RETURN ADDRESSS 002480 8198 3380 880 MVB R1)+, (R2,RMEUC SET VALUE FOP UPPER CASE 
002382 601F 766 SVC READS READ IT INTO STORAGE 002484 8198 3280 881 MVB R1)+, (R2,RMTID SET VALUE FOR TRANSFER CODE 
002384 75A7 767 IR R5,R5 READ OK 002488 0201 882 ABI NE, RD INCREMENT OFFSET POINTER 
002386 6801 2804 768 BNZ  RETUR BR/NO — ATTACHMENT NOT INITIALIZED 00248A B8F5 883 JcT  psrb7,R0 BR/DO ALL ENTRIES THIS GROUP 
00238A 6812 20RA 769 B R6SAV* RETURN OK 00248C SOFF 884 J DSRO5 BR/DO NEXT GROUP 
770 * COMMON I/0 885 * 
002385 771 101 Ou 886 * CALCULATE CHECKSUM FOR CONTROL STORF 
00238E 6EOD 20EA 7172 MVW 6,R6SAV SAVE RETURN ADDRESSS 887 * 
002392 4020 176A 23AC 773 MVA  O4100,ACINT SET UP INTERRUPT ADDRESS 00248F 888 DSROO EQU) * 
002398 6FOD 17BE 774 MVW R7,IDCB SAVE IDCB ADDRESS OO248E 4124 3040 889 MVWI RMBUF,R1 REMOTE CONTROL STORE START 
00239C 68EC 0000 7175 TO RY WRITE ATTACHMENT CODE 002492 C825 3FFE 890 MVWZ CKSUM,RO ZERO CHFCKSUM INITIALLY 
0023A0 6F05 2594 7176 BNCC SEVEN, NOCON BR/IO CC NG - NO CONSOLE SUPPORT 002496 700A 891 SW RO,RO ZERO REGISTER INITIALLY 
0023A4 6F03 2810 7177 BAL WAITI,;R7 BR/IO CC OK - WAIT FOR INTERRUPT 002498 892 DSR10 Fou * 
0023A8 6802 2594 7178 B NOCON BR/LOST INTRPT - NO CONSOLE SUPPORT 002498 CASO 893 M faa + R2 CONTROL STORE WORD 
0023AC 779 10100 EQU. * 002498 0201 894 ABI NE, R2 ADD ONE TO IT 
0023AC 6805 2594 780 BNCC THREE, NOCON BR/INT CC BAD - NO CONSOLE SUPPORT 00249C 720A 895 SW P2,R0 SUBTRACT FROM ACCUMULATED VALUE 
781 * 00249E 7002 896 SCY RO SUBTRACT CARRY 
0023B0 OF03 782 MVBI THREE,R7 CHANGE TO LEVEL 0024A0 7906 3FFE 897 CWI  CKSUM,R1 ALL WORDS INCLUDED 
0023B2 6004 783 SVC CHNGE THREF OO24A4 18F9 898 JNE  DSR10 BR/NOT FINISHED YET 
0023P4 6812 20EA 784 B R6SAV* - RETURN OK 9024A6 7802 0001 899 SWI ONE,RO SUBTRACT ONE FROM CHECKSUM VALUE 
785 * CREATE THE CHECKSUM OO24AA 680D 3FFE 900 MVW RO,CKSUM STORE CHECKSUM IN CONTROL STORE 
0023B8 786 CKSM Fou + 901 
0023B8 6EOD 20EA 787 W s-R6,, R6SAV SAVE RETURN ADDRESSS OO24UAE 6F03 2816 902 BAL WAITM,R7 DELAY AFTER RESET - 5 SEC 
0023BC 4124 3000 788 MVWI CSBUF,R1 DISPLAY STATION CONTROL STORE BUFFER 903 
0023C0 C825 3FFE 789 MVWZ CKSUM,RO ZERO CHECKSUM INITIALLY OO24B2 4724 1F4A 904 MVA  XIDCB,R7 ADDRESS OF IDCB 
0023C4 700A 790 Sw RO, RO ZERO REGISTER INITIALLY 0024386 6803 238EF 905 BAL 101,R6 GO ISSUE I/0 
0023C6 791 CKSMO EQU- * 906 * 
0023C6 C853 7192 XW Ri, 4 6 BO EXCLUSIVE OR EACH WORD OO24BA 4020 176A 24D6 907 MVA DSR11,ACINT CHANGE INTERRUPT ADDRESS 
0023C8 7906 3FFE 793 CWI KSUM,R1 END OF CONTROL STORE REACHED 0024C90 4020 17BE 1F4E 908 MVA  YIDCB,IDCB ADDRESS OF IDCR 
0023CC 18FC 7194 JNE  CKSMO BR/NO - CONTINUE 0024C6 680C 1F4E 909 TO YIDCB ISSUE I/0 
0023CE 680D 3FFE 795 MVW  RO,CKSUM STORE CHECKSUM IN CONTROL STORE OO24CA 6FO05 2594 910 BNCC SEVEN, NOCON BR/1O CC NG - NO CONSOLE SUPPORT 
0023D2 6812 20EA 196 B R6 SA V¥ RETURN OK OO24CE 6F03 2810 911 BAL WAITL,P7 BR/1O CC OK - WAIT FOR INTERRUPT 
TOB ARK A Ae a aK a fe 2 ae 2 ie a ee fc 2c fc ic ake ak fc a ak 2K af 2c a fc ac af afc af atk ae oe of 2 ae ake ae ake 2c ake 2c fe ake he fe afc ake ke af ae ae af aie ake fe oe ie ae ake aki ae fe 0024UD2 6802 2594 912 B Peer BR7LOS INTRPT ~- NO CONSOLE SUPPORT 
7199 * * 0024N6 913 DSR11 EQU 
800 * NAME DSREM * 0024N6 G6A04 24F2 914 BCC THO DSR13 BR/INT CC BAD - TRY HALF SCREEN 
801 * x* O024DA 6B05 2594 915 BNCC THREE, NOCON BR/INT CC RAD - NO CONSOLE SUPPORT 
802 * PURPOSE TO PROVIDE A ROUTINE TO INITIALLY WRITE THE * 916 * 
803 * ATTACHMENT INITIALIZATION CODE TO THE REMOTE * 917 * 
804 * DISPLAY ATTACHMENT CARD WHICH HAS BEEN ASSIGNED x O024DE 4020 176A 24EE 918 MVA  DSR12,ACINT CHANGE INTERRUPT ADDRESS 
805 * AS THE ALTERNATE CONSOLE. * OO24E4 OFO3 919 MVBI THREE,R7 CHANGE TO LEVEL 
806 * * OO24E6 6004 920 SVC CHNGE THREE 
807 * METHOD 1. READ THE ATTACHMENT CODE OVERLAY. * 0024E8 6F03 281C 921 BAL WAITS,R7 WAIT FOR INTERRUPT - .8 SECONDS 
808 : 2. WRITE IT TO THE ATTACHMENT CARD. ‘ 0024EC 5013 922 . DSR17 BR/NO INTERRUPT SCREEN SIZE SET 
SAO Le tet SPSS TT SLE TS STFS SL SSS ST SSS SS SS SS Set SSS SSS SSC SCS SCCLSSOSS CSL SST SSeS eT Se OO24UEE 924 DSR12 EQU * 
0023D6 811 DSREM EQU- * OO24EE 6C05 2594 925 BNCC FOUR, NOCON BR/CC ERROR - NO CONSOLE SUPPORT 
0023D6 C120 0240 812 MVB  OPADR,R1 CONSOLE DEVICE ADDRESS 0024 F2 926 DSR13 EQU- * 
0023DA C128 1F4B 813 MVB R1,x1hc1 PLACE IN IDCR O024F2 802B 2105 3501 927 CB HAVSC, RMSPL+ONE SCREEN SIZE ALREADY HALF 
0023DE C128 1F4F B14 MVB  &1,YIDC1 PLACE IN IDCB OO24F8 104D 928 JE NOCON BR/NO CONSOLE SUPPORT 
0023E2 C120 024B 815 MVE OPSUB,R1 CONSOLE SUB-ADDRESS OO24FA 8028 2105 3501 929 MVB  HAVSC,RMSPL+ONE SET SCREEN SIZE FOR HALF SCREEN 
0023E6 C128 1FAS 816 MVB  &R1,YWSAD PLACE IN DCB 002500 930 DSR14 FOU * 
QOO23FA C128 16CD 817 MVB  R1,WRSAD PLACE IN DCB — IN OVERLAY 002500 4124 1FC4 931 MVA  SHORT,R1 REMOTE DISPLAY SCREEN SIZE TABLE 
0023EE C128 16ED 818 MVB R1,WCSAD PLACE IN DCB - IN OVERLAY 002504 932 DSR15 EQU- * 
0023F2 C128 16F1 819 MVB  R1,RDSAD PLACE IN DCE - IN OVERLAY 002504 C050 933 MVB R1) +, RO NUMBER OF ENTRIES/THIS GROUP 
820 * 002506 10C3 934 JZ SROQ BR/END OF TABLE — CHECKSUM 
0023F6 4324 224D 821 MVA  RMOVL,R3 OVERLAY NAME ADDRESS 002508 C250 935 MVB (R1) +,R2 SCREEN SIZE VALUE 
0023FA 6E03 2368 822 BAL RDS1,k6 READ IT INTO STORAGE 00250A 936 DSR16 EQU- * 
J 823 * 00250A C278 0000 937 MVB  R2,(R1)* SET VALUE FOR SCREEN SIZE 
0023FE 6898 0240 824 MVW OPADR,RO GET CONSOLE DEVICE ADDRESS 00250E 0102 938 ABI TWO,R1 INCREMENT TABLE POINTER 
002402 C824 35FE 825 CW RMDEV, RO CURRENT DEVICE ADDRESS THE SAME 002510 B8FC 939 JCT  DSRi6,RO BR/DO ALL ENTRIES THIS GROUP 
002406 180C 826 JNE  DSROO BR/NO — REASSIGN 002512 50F8 940 J DSR15 NEXT GROUP 
002408 802B 024B 3500 827 CP OPSUB, RMS PL CURRENT SUB-ADDRESS THE SAME 941 * 
00240R 1808 828 JNE  DSROO BR/NO — REASSIGN 002514 942 DSR17 EQU. * 
002410 8028 2130 1FD6 829 MVE HEXFF,REDEF NO WRITI OF CONTROL STORE NEEDED 002514 C025 1FD6 943 MVBZ REDEF,RO DO WRITI OF CONTROL STORE 
002416 802B 2105 3501 830 CB HAVSC, RMSPL+ONE IS CURRENT ONE A HALF SCREEN 002518 1803 944 JNZ  DSR18 BR/NO NOT THIS TIME 
00241C 1071 831 JE DSR14° BR/YES — SET UP FOR HALF SCREEN 00251A 4724 2262 945 MVA  WRMOV,R7 CONTROL BLOCK ADDRESS 
00241E 45037 832 J DSROY BR/NO - TRY FULL SCREEN 00251E 6020 946 SVC WRITI WRITE CONTROL STORE TO DISKETTE 
833 * 002520 947 DSR18 EQU + | 
002420 834 DSROO EO U * 002520 4020 1FA2 0004 948 MVWI FOUR,YWDCB SET STATION CONTROL BYTE COMMAND 
002420 680D 35FE 835 MVW RO, RMDEV REASSIGN DEVICE ADDRESS/TYPE 002526 8028 21F5 IFA4 949 MVB  DSRCB,YWCM CONTROL BYTE TO SET 
002424 4124 3500 836 MVWI RMSPL,R1 START OF STATION PARM LIST (SPL) 950 * 
002428 0807 837 MVBI SEVEN, RO NUMBER OF SPL AREAS - ONE 00252C 4724 1F4E 951 MVA  YIDCB,R7 ADDRESS OF IDCB 
00242A 8060 024B 838 MVB  OPSUB, (R1) STORE IN SUB-ADDRESS OF CONSOLE 002530 6803 238E 952 BAL 101,R6 . GO ISSUE 1/0 
00242 8068 2104 0001 839 MVB  FULSC, (R1,ONE) SET FOR FULL SCREEN SIZE 953 * 
002434 840 DSRO1 EQU- * 002534 502c 954 J YESCN BR/CONSOLE ASSIGNED SO FAR 
No024u34 0140 841 ABI SPLLN,R1 STEP TO NEXT SPL ‘Q56 eK ok KKK KKK loko KOK koko ok lokaook ok kok OK kaki koko gotta a kok dogo tak ok kak tok ok 
002436 8060 2130 842 MVB HEXFF, (R1) SET ALL OFF BUT FIRST 957 * * 
00243A B8FC 843 JCT  DSRO1,R0 DO ALL EIGHT 958 * NAME DSLOC * 
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959 * ss OO260E 4724 1E50 1074 MVA FSTMA,R7 DESCRIPTION MESSAGE 
960 * PURPOSE TO PROVIDE A ROUTINE TO INITIALLY WRITE THE * 002612 6000 1075 SVC OUT WRITE IT 
961 * CONTROL STORE AND THE IMAGE STORE TO THE * 002614 4020 176A 2630 1076 MVA DSL13,ACINT SET UP INTERRUPT ADDRESS 
962 * 4978 ATTACHMENT CARD WHEN DESIGNATED AS THE * 00261A 6FO3 2810 1077 BAL WAITL,R7 BR/WAIT FOR INTERRUPT 
963 * ALTERNATE CONSOLE. * 1078 x RFTURN HERE IF NO INTERRUPT 
964 x * 00261E 8828 20E4 176A 1079 MVW ACSAV,ACINT CONSOLE INTERRUPT ADDRESS 
965 * METHOD 1. READ THE THREE OVERLAYS INTO STORAGE. % 002624 4724 0234 1080 MVWI INDIC ADR OF DCP INDICATORS 
966 * - IF THE KEYBOARD HAS BEEN DEFINED THEN * 002628 4F87 1081 TBTR R7,ALTDV) IND ALT DEV NOT ASSIGNED 
967 * ASK IF IT IS TO BE REDEFINED, IF If IS * 00262A 4FHE 1082 TBTS R7,STOP) SET STOP INDICATOR 
968 * SET UP TO REDEFINE THE KEYBOARD. * 00262C 6802 255E 1083 B SLO0 BR/NO CHANGE - USE AS IS 
969 * 3. IF THE KEYBOARD HAS NOT BEEN DEFINED * 1084 * 
970 * THEN SET UP TO DEFINE THE KEYBOARD. * 002630 1085 DSL13 EQU * 
O71 * 4. WRITE THE CONTROL STORE AND THE IMAGE * 002630 OFO3 1086 MVBI THREE,R7 CHANGE TO LEVEL 
972 * STORE TO THE ATTACHMENT CARD. * 002632 6004 1087 Svc CHNGE TEREE 
973 * * 002634 C825 17B8 1088 MVWZ PGCTL,RO TURN OFF PAGE CONTROL-DEFINE KEYBOARD 
O74 EO OO IO RIG ICO CO CII II ICI I I a IO IR I aE ke ake ake fea ak 002638 8828 20E4 176A 1089 MVW ACSAV, ACINT CONSOLE INTERRUPT ADDRESS 
002536 975 DSLOC EQU * 00263E 4724 1E66 1090 MVA SECMA,R7 NESCRIPTION MESSAGE 
002536 C120 0240 976 MVB OPADR,R1 CONSOLE DEVICE ADDRESS 002642 6000 1091 SVC OUT WRITE IT 
00253A C128 1F3F 977 MVB R1,110C1 PLACE 002644 4724 1£88 1092 MVA TRDMA,R7 DESCRIPTION MESSAGE 
00253E C128 1F43 978 MVB R1,CIDC1 ADDRESS 002648 6000 1093 SVC OUT WRITE IT 
002542 C128 1F47 979 MVB R1,FIDC1 IN IDCBtS O00264A C925 20E2 1094 MVWZ KEYSV,R1 INITIALIZE STARTING OFFSET 
980 * OO264E 4424 1E98 1095 MVA FORMA, RY KEY NAME MESSAGE 
002546 4324 2245 981 HVA IMOVL, R3 OVERLAY NAME ADDRESS 002652 6F03 26C2 1096 BAL DSL16,R7 WRITE IT 
0O0254A 6E03 2368 982 BAL RDS1,R6 READ IT INTO STORAGE 002656 4424 TEAY 1097 MVA FIVMA,R4 KEY NAME MESSAGE 
983 * 00265A 6F03 26C2 1098 BAL DSL16,R7 WRITE IT 
OO0254E 4724 1F3E 984 MVA IIDCB,R/?7 ADDRESS OF IDCB 00265E 4424 1ECO 1099 MVA SIXMA,R4& KEY NAME MESSAGE 
002552 6E03 238E 985 BAL I01, R6 GO ISSUE I/0 002662 6F03 2€C2 1100 BAL DSL16,R7 WRITE IT 
986 * 002666 4424 1ED6 1101 MVA SEVMA, RY KEY NAME MESSAGE 
002556 4324 2235 987 MVA CSOVL,R3 OVERLAY NAME ADDRESS 00266A 6F03 26C2 1102 BAL DSL16,R7 WRITE IT 
00255A 6E03 2368 988 BAL RDS1,R6 REKD IT INTO STORAGE OO0O266E 4424 1EEE 1103 MVA EGHMA,R4Y KEY NAME MESSAGE 
989 * 002672 6F03 26C2 1104 BAL DSL16,R7 WRITE IT 
00255E 990 DSLOO EQU x 002676 4424 1F02 1105 MVA NINMA,RY& KEY NAME MESSAGE 
Q0255E 4324 223D 991 MVA FTOVL,R3 OVERLAY NAME ADDRESS OO0267A 6FO03 26C2 1106 BAL DSL16,R7 WRITE IT 
002562 6E03 2368 992 BAL RDS1, 86 READ IT INTO STORAGE OO267E 1107 DSL14 EQU * 
993 * OO267F 6908 20F2 1108 NV YSV,R1 KEY NAME TABLE CURRENT OFFSET 
002566 402F 3c00 994 CWI HFFFF, FITBUF KEYBOAFPD BFEN DEFINED 002682 8128 2106 1F0 1109 MVB R1 KEYS) TENMG KEY NAME IN MESSAGE 
00256C 101E 995 JE DSL10 BR/NO - GO SET UP FOR DEFINITION 002688 802B 2130 1F0 1110 CB EXfF, TE hc LAST KEY DEFINED 
00256E C025 1FD5 996 MVBZ pues ten CHANGE QUESTION ASKED? 00268E 1005 1111 JE DSL15 BP/YES - WRITE NEW TABLE AND SAVE 
002572 1804 997 JNZ SLO1 BP/SYES - NO CHANGE DESIRED 002690 4424 1FOA 1112 MVA TENMA,RS KEY NAME MESSAGE 
002574 8028 2130 998 MVB HEXFF,QUEST SET UP TO ASK QUESTION 002694 6F03 26C2 1113 BAL DSL16,R7 WRITE IT 
00257A 5017 aG0G ‘ J DSL10 PR/NO - GO SETUP AND ASK QUESTION 002698 50F2 aaa ‘ J DSL14 BR/NEXT KEY 
00257C 1001 DSLO1 EQU * 00269A 1116 DSL15 EQU * 
00257C 23B8 1002 BAL CKSM,R6 GO CREATE A CHECKSUM 00269A OFO3 1117 MVBI THREE,R7 CHANGE TO LEVEL 
. 1003 * 00269C 6004 1118 SVC CHNGE THREE 
002580 TF42 1004 MVA CIDCB,R7 ADDRESS OF IDCB 00269E 8028 2130 17B8 1119 MVB HEXFF,PGCTL RESET PAGE CONTROL 
002584 238E 1005 BAL 101, R6 GO ISSUE I/0 OO26A4 4724 0234 1120 MVWI INDIC,R ADR OF DCP INDICATORS 
1006 * 0026A8 4F87 1121 TBTR R7, ALTDV) IND ALT DEV NOT ASSIGNED 
002588 1FD6 1007 MVB REDEF, RO SET UP TO REDEFINE OO26AA 4FUE 1122 TETS R7,STOP) SET STOP INDICATOR 
00258C 1008 JNZ DSL12 PR/YES - DO REDEFINITION 1123 
1009 33 RI ROO IORI IG RIC GIGIOO GR ig fo ok ack ak 0026AC 6£E03 23B8 1124 BAL CKSM, R6 GO CREATE A CHECKSUM 
1010 * x 1125 
1011 * SET CORRECT RESPONCE FOR CONSOLE AVAILABILITY * O0O026B0 4724 1F46 1126 MVA FIDCB,R7 ADPRESS OF IDCB 
1012 * * 002684 6E03 238E 1127 BAL 101,R6 GO ISSUE 1/0 
1013 32 IG IIR IO IC IOI GOI GI ok aOR ack ak kako akak ak 1128 * 
00258E 1014 YESCN Ben * 0026B8 4724 225C 1129 MVA WFTOV,R7 CONTROL BLOCK ADDRESS 
00258E C825 20DC 1015 MVWZ RETIN,RO INDICATE GOOD RETURN 00268C 6020 1130 SVC WRITI WRITE IT TO DISKETTE ~- SAVED 
002592 5007 1016 J CMCON BR/CHECK REST OF CONFIGURATION OO26BE 6802 258E 1131 B YESCN RETURN TO DCP 
002594 1017 NOCON EQU * 1132 * 
002594 4724 0234 1018 MVWI INDIC,R7 ADR OF DCP INDICATORS 0026C2 1133 DSL16 EQU * 
002598 4F87 1019 TBTR R7,ALTDV) IND ALT DEV NOT ASSIGNED 0026C2 4028 20EC C 1134 STM R6,SRSV SAVE RETURN ADDRESS 
00259A 4F4E 1020 TBTS R7,STOP SET STOP INDICATOR 0026C8 8828 20E4 1 1135 MVW ACSAV,ACINT CONSOLE INTERRUPT ADDRESS 
00259C 8828 21F6 1021 MVW DSINT,RE IN INDICATE ERROR RETURN QOO026CE OFO3 1136 MVBI THREE,R CHANGE TO LEVEL 
0025A2 1022 CMCON EQU * 0026D0 6004 1137 SVC CHNGE THREE 
0025A2 OFO3 1023 MVBI THREE,R7 CHANGE TO LEVEL 0026D2 6F08 20FE 1138 MVW SRR4&,RT MESSAGE ADDRESS 
OO25A4 6004 1024 svc CHNGE THREE 0026D6 6000 1139 SVC UT WRITE MESSAGE 
0025A6 6802 270E 1025 B DSL4O BR/CHECK PEST OF CONFIGURATION 0026D8 4020 176A 26E2 1140 MVA DSL17,ACINT SET UP INTERRUPT ADDRESS 
soe . OO026DE 6812 0248 Wao " B SCHED* BR/WAIT FOR INTERRUPT FROM KEY 
1029 * DEFINE THE KEYBOARD 002682 1143 DSL17 EQU * 
1030 x 0026E2 6C05 2594 1144 BNCC FOUR, NOCON BR/INT CC BAD - NO CONSOLE SUPPORT 
OO25AA 1031 DSL10 EQU * 1145 * ATTENTION INTERRUPT 
OO25AA 4124 3c00 1032 MVWI FT,R1 ZERO OUT TOTAL TABLE 0026F6 3742 1146 SRL EIGHT, R7 POSITION IIB INTERRUPT CODE 
OO25AE 4724 0300 1033 MVWI SEV68 R7 TABLE LENGTH OO26E8 TFE4 FFOO 1147 RBTWI HFFOO,R7 SAVE INTERRUPT CODE 
0025B2 0A00 1034 MVBI ZERO R2 ZERO DATA OOZ6EC 7764 1148 MVW R7,R INTERRUPT CODE IN REG 3 
0025B4 2A2C 1035 FFN R2, (£1) PUT IN TABLE OO26EE €908 20E2 1149 MVW KEYSV R1 KEY OFFSET FOR TABLES 
1036 * 0026F2 81E8 2106 3D00 1150 MVB R1, KEYS 2 (k3,CT PUT CHARACTER CODE IN TABLE 
0025B6 4124 3E00 1037 MVWI IT,R1 INTERRUPT TABLE - RETURN CODE 0026F8 81E8 2131 3E00 1151 MVB R1,1CDS), (R3,1T PUT INTERRUPT CODE IN TABLE 
0O0258A 4224 0100 1038 MVWI TWO56 R2 TABLE LENGTH OO26FE 81E8 215C 3cC00 1152 MVB R1, 1KYS), (R3,FT PUT INTERRUPT KEYS IN TABLE 
0025BE OBO00 1039 MVBI ZERO, &3 FIRST RETURN CODE 002704 0101 1153 ABI E,R1 INCREMENT CURRENT OFFSET 
0025C0 1040 DSL11 eeu * 002706 690D 20E2 1154 MV R1 KEYSV KEY NAME TABLE CURRENT ADDRESS 
0025CO C358 1041 MVB R3, (R1)+ PUT CODE IN TABLE OO270A 402A 20EC 1155 LMB gy RETURN TO CALLER 
0025C2 0301 1042 ABI ONE,R3 INCREMENT BY ONE 1156 * 
0025C4 BAFD 1043 JCT DSL11, R2 BR/DO NEXT CODE ae A CO OK oi Jo koko lok ok a look gag iaiioioi aiok loi iota kota iadak aiak katoi kak ak 
1044 * * * 
0025C6 4124 3c00 1045 MVWI FT,R1 FUNCTION TABLE - ALL KEYS INTERRUPT 1160 * NAME DSL4O * 
0025CA 4724 0100 1046 MVWI TWO56,R7 TABLE LENGTH 1161 * * 
0025CE 0QA20 1047 MVBI THRT2,R2 INTERRUPT CODE - NO DISPLAY 1162 * PURPOSE TO PROVIDE A ROUTINE TO WRITE THE IMAGE STORE * 
0025090 2A2C 1048 FFN R2, (R1) PUT CODE IN TABLE 1163 * AND THE CONTROL STORE TO THE 4978 ATTACHMENT * 
1049 * ‘ 1164 * FOR EACH DEVICE ADDRESS FOUND IN THE * 
0025D2 8028 2130 1FD6 1050 MVB HEXFF,REDEF INDICATE KEYBOARD REDEFINITION 1165 * CONFIGURATION TABLE. * 
0025D8 50D1 1051 J DSLO1 WRITE CONTROL STORE 1166 * * 
1052 * 1167 * METHOD 1. READ THE CONFIGURATION TABLE INTO STORAGE * 
OO25DA 1053 DSL12 EQU * 1168 * AND SEARCH FOR ALL 4978 DEVICE ADDRESSES. * 
O0025DA 4724 1770 1054 MVWI COMMN,R7 ADDRESS OF IDCB 1169 * 2. READ THE IMAGE STORE OVERLAY INTO STORAGE * 
O0O025DE 6£E03 238E 1055 BAL I01,R6 GO ISSUE I/0 1170 * AND WRITE IT TO ALL OF THE DEVICE ADDRESSES. * 
1056 * 1171 * 3. READ THE CONTROL STORE OVERLAY INTO STORAGE * 
0025E2 4724 0234 1057 MVWI INDIC,R7 ADR OF DCP INDICATORS 1172 * AND WRITE IT TO ALL OF THE DEVICE ADDRESSES. * 
0025E6 4F47 1058 TBTS R7,ALTDV) IND ALT DEV ASSIGNED 1173 * a 
0025F8 4F86 1059 TBTR R7,STOP) RESET STOP INDICATOR 1174 3 OOO iO OR Ig i ig a IOI oI Gir a ma a OR OR I iG kak kofok ik 
1060 * OO270E 1175 DSL4O Ego * 
OO25EA 4124 3Cc00 1061 MVWI FT,R1 ZERO OUT TOTAL TABLE QO2Z70B 4724 2255 1176 MVA CTOVL,R7 ADDRESS OF OVLY RTN NAME 
OO025EE 4724 0300 1062 MVWI sEves R7 TABLE LENGTH 002712 6E03 237E 1177 BAL RDS2, R86 READ IT 
0025F2 0A00 1063 MVBI ZERO,R&2 ZERO DATA 1178 * 
NO25F4H 2A2C 1064 FFN R2, (F1) PUT IN TABLE 002716 4124 3000 1179 MVWI CTBUF,R1 CONFIGURATION TABLE 
1065 * OO0O271A 4224 TFDC 1180 MVA DSPAD,R DISPLAY ADDRESSES TABLE 
0025F6 4124 3c00 1066 MVWI FT,R1 FUNCTION TABLE ~- ALL KEYS INVALID OO0271E 1181 DSL41 Een * 
OO25FA 4724 0100 1067 MVWI TWO56,RT7 TABLE LENGTH 00271E 0110 1182 ABI SIXTN,R1 INCREMENT INTO CONFIGURATION TABLE 
QOO25FE OATO 1068 MVBI ONE12,R2 INVALID CODE - NO DISPLAY 002720 812B 0001 2107 1183 CB (R1 ONE) , HEXOO END OF CONFIGURATION TABLE 
002600 2A2C 1069 FFN R2,(R4) PUT CODE IN TABLE 002726 1009 1184 JE pDsi42 BR/YES 
1070 * 002728 812B 0001 220C 1185 CB As} ONE) , DSP2 IS THIS ENTRY A 4978 DISPLAY 
902692 8828 20EU 176A 1071 MVW ACSAV,ACINT CONSOLE INTERRUPT ADDRESS 00272E 18F7 1186 JNE SL41 BR/NO - CHECK NEXT 
002608 C020 1FN5 1072 MVB gUeoa end ASK QUFSTION ABOUT KEYBOARD CHANGE 002730 810B 0240 1187 CB Ae) OPADR IS THIS THE ALTERNATE CONSOLE 
00260C 1011 1073 JZ SL13 BR/NO - INITIAL DEFINE KEYBOARD 002734 =10F4 1188 JE SLY 4 BR/YES - BYPASS THIS ONE 
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002736 81384 1189 MVB (R1) (R2) + SAVE ADDRESS 

002738 SOF 1190 J DSLU 4 CHECK NEXT 

00273A 1191 DSL42 EQU. * 

00273A 4124 FDC 1192 MVA DSPAD,R1 DISPLAY ADDRESSES TABLE START 

00273E 7225 1193 CW R2,R1 ANY 4978 DISPLAY ADDRESSES 

002740 1061 1194 JE RETUR BR/NO -— RETURN 

002742 6A0D 1FD8 1195 , MVW  R2,LASTA SAVE ADDRESS OF LAST ADDRESS 

002746 4724 2245 1197 MVA  IMOVL,R7 ADDRESS OF OVLY RTN NAME 

OO274A 6EO3 237E 1198 : BAL  RDS2,h6 READ IT 

O0O274E 9028 1IF3E 1F3A 1200 MVD IIDCB,BIDCB SET IDCB FOR IMAGE STORE 

002754 1201 DSL43 EQU * 

002754 4020 1FDA 1FDC 1202 MYA  DSPAD,CURRA DISPLAY ADDRESSES TABLE START 

002754 1203 DSL44 FOU ¥* 

J0275A 6908 1FDA 1204 MVW  CURRA,R1 ADDRESS OF DEVICE ADDRESS 

002758 C924 1FD8 1205 CW LASTA,R1 ALL ADDRESSES DONE 

002762 103E 1206 JE DSLU6 BR/YES - RETURN 

902764 C050 1207 MVB (Rt) + RO DISPLAY DEVICE ADDRESS 

002766 6900 1FDA 1208 MVW 1,CURRA ADDRFSS OF NEXT DEVICE ADDRESS 

00276A C028 1F3B 1209 MVB  RO,BIDC1 ADDRESS 

00276E C028 1F53 1210 MVB  RO,RIDC1 IN 

002772 C028 1F57 1211 MVB  RO,PIDC1 ALL 

002776 C028 1F5B 1212 MVB  RO,UIDC1 IDCBtS 

00277A C028 1F5F 1213 : MVR RO,STIDC1 USED 

002778 4020 17BE 1F52 1215 MVA  RIDCB,IDCB SAVE THE IDCB ADR 

002784 680C 1F52 1216 IO RIDCB READ ID 

002738 6F05 275A 1217 BNCC SEVEN,DSL44 BR/BAD - TRY NEXT 

90273C 8382B 1F54 2214 1218 CW PIDC2,DSRID CORRECT READ ID RESPONSE 

002792 1883 1218 : JNE  DSL44 BR/NO - TRY NEXT 

302794 3009 1221 SLL ONE, RO EACH ADDR 2 BYTES 

002796 0030 1222 ABI ADEVT.RO GET ADDR ALT INT VECTOR 

002798 680D 20EF6 1223 MVW = RO DSGeR SAVE VECTOR ADDRESS 

00279c 8808 20E8 1224 MVW ¢ro) DSSAV SAVE THE ORIGINAL VECTOR ADDRESS 

002740 “OOO 21F6 1225 MVA SI & SFT INT ADDR FOR DEVICE 

NO27AG 4020 17BE 1F56 1226 MVA PIDCB, Re SAVE THE IDCB ADR 

OO27AA 680C 1F56 1227 E TO PID PREPARE THE DEVICE 

OO27AE 4020 17BE 1F3A 1239 MVA  BIDCB,IDCB SAVE IDCB ADDRESS 

0027B4 680C 1F3A 1230 TO RIDCB WRITE IMAGE STORE/CONTROL STORE 

0027B8 6F05 27C0 1231 BNCC SEVEN,DSL45 BR/IO CC NG = TRY NEXT ADDRESS 

0027BC 6F03 2810 1232 : BAL WAITL,R7 BR/WAIT FOR INTERRUPT 

0027C0 1234 DSL4YS BOU * 

0027C0 OFO3 1235 MVBI THREE, R7 CHANGE TO LEVEL 

0027C2 6004 1236 : SVC. CHNGE THRE? 

0027C4 4020 17RE 1F5A 1238 MVA UIDCB,IDCB IDCB ADR 

0027CA 680C 1F5A 1239 TO UIDCB UN-PRFP THE DEVICE 

0027CE 4020 17RF 1F5E 1240 MVA  SIDCB,IDCR IDCB ADDRESS 

0027D4 680C 1F5E 1241 IO SIDCB RESET THE DEVICE 

0027908 882C 20E8 20E6 1242 MVW  DSSAV,DSVTR* RESTORE THE VECTOR ADDRESS 

0027DE 50BD 1243 , J DSL4ay RR/DO NEXT 

0027E0 1245 DSL4U6 EQU- * 

0027F0 802B 1F3A8 1F42 1246 CB BIDCB, CIDCB WRITE CONTROL STORE DONE 

0027E6 100EF 1247 : JE RETUR BR/YES RETURN 

OO27E8 4724 2235 1249 MVA CSOVL OVERLAY NAMF ADDRESS 

0027EC 6E03 237E 1250 ; BAL RDS2, pf! READ IT 

O027FO 4724 223D 1252 MVA  FTOVL,R7 OVERLAY NAME ADDRESS 

0027F4 6E03 237E 1253 : BAL RDS2,R READ IT 

0027F8 6E03 23B8 1255 ~ BAL  CKSM,R6 GO CREATE A CHECKSUM 

0027FC 9028 1F42 1F3A 1257 MVD CIDCR,BIDCB SET IDCR FOR CONTROL STORE 

002802 50:8 1258 . J DSL43 BR/WPITE CONTROL STORE 
1260 * RETURN TO COMPLETE CONSOLE SETUP 

002804 1262 RETUR EQU * 

002804 C825 20DC 1263 MVWZ RETIN, RO GOOD RETURN FOR CONSOLE TO DCP 

002808 6800 22F2 1264 ALT10 BR/YES - RETURN CONSOLE SETUP 

00280C 6802 2330 1265 B ALT15 BR/NO - NO CONSOLE 
\WAMA LS LS te LS tt SSL PLS PS SSS PTTL SPL SPT TS STS SS SSS SSS SSS SSS SSS SSS SSS SS st Fs 2 2 5 2 5 2 
1268 * * 
1269 * NAME WAITL/WAITM/WAITS : 
1271 * PURPOSE TO PROVIDE A ROUTINE TO WAIT FOR AN INTERRUPT x 
1272 * FROM THE DEVICE OR THE KEYBOARD DURING KEYBOARD * 
1273 + DEFINITION. * 
1275 * METHOD USING SVC IDLE SET UP TO DELAY ONE OF THESE. * 
1276 * WAITL - 15 SECONDS 
1277 * WAITM - 5 SECONDS * 
1278 * WAITS - .8 SECONDS * 
4 
T2800 Ra KK He ee he he a a 2 Re ae Ok oo ok ok kok i kk kK ik kk kk ke kk i fe ck ak a ake agai fe ake oe ake ke ate ae aera af age og 

002810 1281 WAITL RQU- * 

002810 4424 7422 1282 MV WI DLONG, R4 DELAY CONSTANT FOR 15 SECONDS 

002814 5005 1283 J WAIT CONTINUE 

002816 1284 WAITM EQU 

002816 “4U24W 26BR6 1285 MVWI a MED RY DELAY CONSTANT FOR 5 SECONDS 

00281A 5002 1286 J WAITI CONTINUE 

00281C 1287 WAITS EOU 

00281C 4424 0632 1288 MVWI DSHRT, RY DELAY CONSTANT FOR .8 SECONDS 

002820 1289 WAIT1 EQU ¥* 

002820 6003 1290 SVC IDLES SVC WAIT FOR 500 USEC 

002822 BCFE 1291 JCT  WAIT1,R4 BR/NOT DONE 

002824 5700 1292 A BX S (R7) BR/RETURN TO CALLER 
1294 PSS SS SSS SSS SSS SSS SSS SSS SSP SEL ESL SL SS PSPCLSSLLS SSeS +S SSS SL eS SS SSS St 22 SS 2S 2. 
1295 * * 
1296 * NOTE: * 
1297 * IF THE ADDRESS OF 'FINIS' FXCEEDS X'2A00' THEN THE * 
1298 * SYSTEM TEST STORAGE PARITY CHECK DATA STORAGE AND * 
1239 + PRINT ROUTINE WILL BE DIRECTLY EFFECTED. * 
V30 1 RK RK Re 2 he oe i he a 2 oe ok a 2 2 he 2h 2c 2h of ai fe ae ak ke oc a af ik ae fe i a 2k 2c 2c ok 2 of 2c ck oc a co ok oi ic a keke ok ok ofc ak oc ate ok 

002826 1302 FINIS EQU. * LAST ADDRESS USED 

000000 1303 END 
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LENGTH (1) 


LENGTH (2) 


LENGTH (1) 
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HEX LOCATION(00001F82) IN CSECT(C 
HEX LOCATION (00002230) IN CSECT(C 
HEX LOCATION (00002104) IN CSECT(C 
HEX LOCATION (00002105) IN CSECT(C 
HEX LOCATION (00002130) IN CSECT(C 
998 1050. 1110 1119 
HEX LOCATION (00002107) IN CSECT(C 
HEX VALUE (O000FFFF) 
HEX VALUE (O000FFOO) 

HEX LOCATION (00002131) IN CSECT(C 
HEX VALUE (00001785) 
683 695 730 

1238 1240 
HEX VALUE (00000003) 
HEX LOCATION(00001F3E) IN CSECT(C 
HEX LOCATION (00001F3F) IN CSECT(C 
HEX LOCATION (0000215C) IN CSECT(C 
HEX VALUE (00003000) 
HEX LOCATION (00001F62) IN CSECT(C 
HEX LOCATION (00002245) IN CSECT(C 
HEX VALUE (00000234) 
1018 1057 1080 
HEX LOCATION (0000238E) IN CSECT(C 
985 1 1055. 1127 
HEX LOCATION(000023AC) IN CSECT(C 
HEX VALUE (00003E00) 
HEX LOCATION (00002106) IN CSECT(C 
HEX LOCATION (000020E2) IN CSECT(C 
HEX LOCATION(00001FD8) IN CSECT(C 
HEX VALUE (00000004) 
HEX LOCATION(00001F02) IN CSECT(C 
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380C ) LENGTH(2) 
380C ) LENGTH(5) 
380C ) LENGTH(1) 
380C ) LENGTH(1) 
380C ) LENGTH(1) 
380C ) LENGTH(1) 
380C ) LENGTH(1) 
908 1215 

380C ) LENGTH(2) 
380C ) LENGTH(1) 
380C ) LENGTH(1) 
380C ) LENGTH(2) 
380C ) LENGTH(S5) 
380C ) LENGTH(1) 
380C ) LENGTH(1) 
380C ) LENGTH(1) 
380C ) LENGTH(2) 
380C ) LENGTH(2) 
380C ) LENGTH(2) 
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HEX LOCATION(00002594) IN CSECT(C380C ) LENGTH(1) 
665 667 761 76 778 780 910 
925 928 1144 
HEX VALUE (00000001) 
248 252 256 260 264 + «+£«73}268 272 
629 668 673 676 734 °&£«830 839 
878 882 894 899 927 929 1042 
1185 1221 
HEX VALUE (00000070) 
HEX VALUE (00000240) 
812 824 976 1187 
HEX VALUE (00000248) 
HEX VALUE (00000241) 
HEX YALUE (90000000) 
1093. 1139 
HEX VALUE (000017B8) 
HEX LOCATION (00001F56) IN CSECT(C380C ) LENGTH (2) 
HEX LOCATION(00001F57) IN CSECT(C380C ) LENGTH(1) 
HEX LOCATION (00001FD5) IN CSECT(C380C ) LENGTH(1) 
HEX VALUE (000016F 1) 
HEX LOCATION (00002368) IN CSECT(C380C ) LENGTH(1) 
HEX, LOCATION (00002378) IN CSECT(C380C ) LENGTH (1) 
HEX VALUE (0000001F) 
HEX LOCATION (00001FD6) IN CSECT(C380C ) LENGTH(1) 
HEX LOCATION (000020DC) IN CSECT(C380C ) LENGTH(2) 
HEX LOCATION (000020E0) IN CSECT(C380C ) LENGTH(2) 
HEX, LOCATION (00002804) IN CSECT(C380C ) LENGTH (1) 
HEX LOCATION(00001F52) IN CSECT(C380C ) LENGTH (2) 
664 1215. 1216 
HEX LOCATION (00001F53) IN CSECT(C380C ) LENGTH(1) 
HEX LOCATION (00001F54) IN CSECT(C380C ) LENGTH(2) 
HEX VALUE (00003040) 
140 141 #1142 ° 319 630 889 
HEX VALUE (000035FE) 
HEX LOCATION (00002187) IN CSECT(C380C ) LENGTH(1) 
HEX LOCATION(000021DC) IN CSECT(C380C ) LENGTH(1) 


PAGE 08 


C380C - 


DECLARED 
139 
140 
615 
141 
138 

0 


384 


117 
186 
184 

92 
211 
209 
101 
345 
219 
276 
206 
204 

96 
143 
398 
389 
395 
386 
154 

94 
226 
224 

89 


97 
100 
191 


ALTERNATE CONSOLE PREP 


NAME 
RMELC 
RMEUC 
RMOVL 
RMS PL 
RMTID 
RO 


R1 


R2 


R3 


R4 


R6 


R6SAV 
R7 


SCHED 
SECMA 
SECMG 
SEVEN 
SEVMA 
SEVMG 
SEV68 
SHORT 
SIDCB 
SIDC1 
SIXMA 
SIXMG 
SIXTN 
SPLLN 
SRHEA 
SRLEA 
SRR4 
SRSV 
STOP 
TEN 
TENMA 
TENMG 
THREE 


THRT2 
THR84Y 
TRDMA 


= amd ak od ek ond ed med ah 


_ 
OP OD OD a NIN Be oa DN A I OOD a OD ND OY OF Pop a ON a tO at Not OO I ot DI I ODD SIN OW OND tp OO ONAD ast CODMDDOONWNOMOOINAD OM op or 
OIUDEDWAOUNY ABOUND aDWOWOOVODESEWOWOUOOY aS YO WOW OONDOOUSD SWAUIWODUIOONAM NID NON NE OUOMONDEO EOUINUIDIOUN TON Swi smOowWwNUIE UID NON 


= wd adwadodo od 
NDWONATDNANN NON ANUN SOOO DOONY 2NNNADYODWIDNY 2OW) 2a) DOD -AMNNODN YEN 28 SOLO NUM MN OM WUT 9 OM WUWNIKD INI QW at a JUD ot BAO WSS UIUNO MM ~1N1 00 


—_—_ 


i -_ —> ea oak => oat on 


wh 


ABSOLUTE. 

51 875 
ABSOLUTE 
852 


m= Com 
oO 
oO 
o Oo BW 
me ty 
a a wn 
Oot 
oot es Ce 


Ht 
e7) 
a | 


KH 
“A 
a 
NN SOWSNVUIO® wmnN~)~jJe°* 


© Fy nnd ond amd 


tH tH 
oP] 127) 
UII GS OO 


et 
Sp) Ww 
ee ee Le See 
—_~j* WOom* 


MH WH 
nN 
WON NAD OVOWWUNTO BOUIN U1 OUTRO ON at SI ND OW NOTES ONE Gute to 


eH 
N 


9] 
td 
+3 Naw 
FN BOOOON 8th) 2 Oi SI Ort Os 2 OOO NTH B= OW DO OONWNOMOMO~WNty cr Or OWN 


HOF BmOMOVUIN OW or 
®NMAWNOLPONU! MH WOE © 


ek ee ed aad od aed 


OL 
RESS. 
RESS. 
OLUTE. 
701 
RESS. 
RESS. 
OLUTE, 
RES 
RE 
RE 
RESS. 
RESS. 
OLUTE. 
OLUTE. 
RESS. 
38 
RESS. 
RESS. 
RESS. 
1155 
OLUTE. 
724 
OLUTE. 
RESS. 
RES 


1 
U 
1 
U 


S 
SS. 
1240 
SS. 


oO 
t 
oO 


S. 
10 
TE. 
7107 
136 
TE. 


oO 
t 


OLUTE. 
RESS. 


ARATION AND DEFINITI P/N=4414158 
CROSS-REFERENCE LISTING 


ATTRIBUTES AND REFERENCES 


HEX VALUE (00003300) 
HEX VALUE (00003380) 


HEX LOCATION (O000224D) IN CSECT (C380C 


HEX VALUE (00003500) 
836 927 9 
HEX VALUE (00003280) 


HEX eee oe oe 
662 673 


— od 
a 


COGWNS NmmOODOOON NNWOUA 


=) ad 
AWWW Y OCDBOLWOUWIO DAwsWOwos) 


Cad and ood 


—_ 
—smOOOUO NS 4) NWN ~S OPS OOM ODOADd mw rAOODODOONKNODOOWNN 


FSaOUMAOND DENon nv 


ae 
(ono oy 
(o>) 
oO 
Oo = 


ne 
te 
—_ 
— 


awh od 2d 


med aed ed od 
SCVUOND N22 sBOOOOO~) NONWONOD 


ae 

ted 3 ad od 

bow] 

tl 

CS med ed ond ed 

SD mad aed ened end 

OQWWH CMOOWWAUNDO NOWAW=) 

ad ened ond ond 


© 
oO 


NO 
WOEND—s OWOMIONAW WOWOWUI~) 


LSOUINU OUIKNnTWONSeadsy NMQJOL ON 
CONWOC SIN M~AUIMOe@ON UNWWAIND 


ood ed 
—d 


—< 

te 
— 

oN) 

—_ 


HN 
© 
J 


6 
1150 
1105 


Hom} ae} 
th 8 ati 
WO 
= 
t tt 
Sa we 
oOo © Oo 
oOo Oo io) 
= 
~~ 
— = 
— e(D 
sa UIQ 
NO wh 
> _ 


— 

ie] 

~~ 
— 


tt 
=| 
nN OM 


< 
tz 
>< — 
ee eee Ws OPO ORnGWIWHAOYQATNNUIS DAW 
= 
od tb 
b3 nad aed fom) 
=aa2OOOONAIEAMHNONE~ atWOohd COMODNNHN—COWDODOAITKINOMOO~) 
ma 
(o>) 
-_ 
om 
UN 
= 
Q = 
NwwOOUOnIs] SU tO 
~ 


Co Oat COC CO eo CO = 
=—mOOOUOADWIONONGOSO COC BPO DOO CWOONSNDRDONs@CCODDOWNONNYUO~) 
ac] 
~~ 
Q 


SNODNABAUIOOCONOMNODG © COFLNO DWAWNOCOTNOWW IS AWONOCOUIM 
DmaDYQOaNIIonnwnIn~]I0O GO WOMCO LUNURCNVEUWUNUMONCEL IOUS 
- 


~ Oo 
— rw 

He] 
~~” 


Oo 
io) 
WONIGSINUled © 


co 
ty 


> 
tt 
[om 
DMBONNUWUSEENOCWBZWHNOANO smONMO WO LS IOL LON aW)I0DOWOONO 
io) 
i) 


SNUWD BONOAHRHNOUOCAR OR On FOR NROKDWNRAOUDW WIE AOR NOU EY 


aa OOO ~)~) 

NSNOEWOOO SH UIb 
WNHOWWN J Obi NO 
NNOsIWebW SIN £uUI 


oud caeh ood each od 
ed ed od ond od 
od nd od eh end 
ae eed od aod od 
wad oad aed aed wd 
ed ed wd od od 


HEX VALUE (00000248) 


HEX LOCATION (00001E66) IN CSECT(C380C ) 
HEX LOCATION (OOO0O1E54) IN CSECT(C380C ) 


HEX VALUE (00000007) 
776 7 1 


8 910 217 


1231 
HEX LOCATION (OOOO01ED6) IN CSECT(C380C ) 
REX LOCATION (OQOOO1TEC4) IN CSECT(C380C ) 


HEX VALUE (00000300) 


HEX LOCATION (00001fC4) IN CSECT(C380C 
HEX LOCATION (0000 1F5E) IN CSECT(C380C 
HEX LOCATION (00001F5F) IN CSECT(C380C 
HEX LOCATION(00001ECO) IN CSECT(C380C 
HEX LOCATION (00001EA8) IN CSECT(C380C 


HEX VALUE (00000010) 
HEX VALUE (00000040) 


HEX LOCATION (00002104) IN CSECT(C380C 
HEX LOCATION(000020F2) IN CSECT(C380C 
HEX LOCATION (000020FE) IN CSECT(C380C 
HEX LOCATION (000020EC) IN CSECT(C380C 


HEX VALUE (00000006) 
1020. 1059 1082 
HEX VALUE (0000000A) 


1122 


HEX LOCATION(O00001FOA) IN CSECT(C380C_ ) 
HEX LOCATION (00001F06) IN CSECT(C380C_) 


HEX VALUE (00000003) 
252 «780782915919 
HEX VALUE (00000020) 


HEX VALUE (00000180) 


HEX LOCATION (OO0001E88) IN CSECT (C380C 


NHWUODMODX” 
= SWONI~J 


a BOODDOC 
OS SWOUNU a 


ex Yan lo ole clo)! 
COWOE~] 


nN WO 
Oo We 


NewmOOUn~ AIW WO 
WNOOLS~ ja WMO hum 


1023 


EC=375147 


PAGE O8A 
COPYPIGHT IBM CORP 1976 


) LENGTH(5) 


8 679 

4 825 

0 891 

3 996 

1 1212 

2 813 

B 839 

3 861 

1 889 

8 976 

5 1048 

9 1150 

5 1187 

3 674 

9 851 

0 881 

5 1038 

0 1189 

1 987 

2 

2 1285 

2 982 

7 1134 

OC ) LENGTH (2) 

4H = 715 

5 777 

5 951 

6 1054 

0 1081 

2 1104 

9 1136 

5 1249 
LENGTH (2) 
LENGTH (16) 
LENGTH (2) 


wee ee 


Se ad 


1086 


LENGTH (16) 


LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (22) 


LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (2) 


LENGTH (2) 
LENGTH (2) 


) LENGTH (2) 


= 


C) 


C380C - ALTERNATE CONSOLE PREPARATION AND DFFINITI 
CROSS~REFERENCE LISTING 


DECLARED 

189 

88 

99 
271 
272 
1281 
1284 
1287 
1289 
121 
625 
129 
119 

79 
629 
120 
255 
256 
a BP 
338 
1014 
259 
260 
322 
321 
323 

86 


NAME 
TRDMG 
TWO 
TWO56 
UIDCB 
UIDC1 
WAITL 
WAITM 
WAITS 
WAIT1 
WCSAD 
WFTOV 
WIDCB 
WRDCB 
WRITI 
WRMOV 
WRSAD 
XIDCB 
XIDC1 
XSDCB 
YDSTG 
YESCN 
YIDCB 
YIDC1 
YWCM 
YWDCB 
YWSAD 
ZERO 


ATTRIBUTES AND REFERENCES 
Sa HEX LOCATION (QOOO1TE6A) IN CSECT(C380C 


i ob 
ow 
Wn 
(o) 
t 
= 
| 
ty 

8 


HEX VALUE (00000002) 
HEX VALUE (00000100) 
HEX LOCATION (00001F5A) 
HEX POCATTON (00001F5B) 
HEX LOCATION (00002810) 

7 911 1077. 1232 
HEX LOCATION (000028 16) 
BEX LOCATION (0000281C) 
git LOCATION (00002820) 
.« HEX VALUE (000016ED) 
RESS. HEX LOCATION (0000225C) 
OLUTE. HEX VALUE (0000176C) 
TE, HEX VALUE (0000 16CA) 
TE. HEX VALUE (00000020) 
S. HEX LOCATION (00002262) 
OLUTE. HEX VALUE (000016CD) 
RESS. HEX LOCATION (00001F4A) 
RESS. HEX LOCATION (00001F4B) 
RESS. HEX LOCATION (00001F92) 
i HEX LOCATION (00001FB2) 
= HEX LOCATION (00002585) 
HEX LOCATION (0000 1F4E) 
HEX LOCATION (00001F4F) 
RESS. HEX LOCATION (00001FA4) 
RESS, HEX LOCATION (00001FA2) 
RESS. HEX LOCATION (00001FA5) 


OLUTE. HEX VALUE (00000000) 
865 1034 1039 1063 


~w mw © 
ty ty tt 
Wm WC 
fob. 
oOo ow £ 


2 3 
be 
ea aj? ot? (We 
NO 


=e) 
ty 
ia?) 


Oo DW WwW 
mm & tt 
am 
BNNWON NANNN~ANOHW 
foo noe 


io) 
th 
io 


COB 00 D9 A) LO Bt C0 A ON > LU IND BOD Bot ND Bt 00 BO tO a YN een ow OD A I LO SD SI Ds KO Dt OO 

KAWAI HnISOAmONDOOONOUIS 2 UID sO EO SOND NO WOO aD OU COND JOWWAN 

rc ee re es ee pee ee ee ee eee ee 
aS 


P/N= 


IN 
IN 
IN 
IN 
IN 
IN 


IN 


IN 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


Me A eK KK a ek ek ok ok ek ke ek kok kok kok kak ke RKK TAST PAGE 


4474158 EC=375147 


CSECT (C380C 
CSECT(C380C 
CSECT(C380C 
CSECT (C380C 
CSECT(C380C 
CSECT (C380C 


CSECT(C380C 


CSECT (C380C 


CSECT (C380C 
CSECT (C380C 
CSECT(C380C 
CSECT (C380C 
CSECT (C380C 
CSECT(C380C 
CSECT (C380C 
CSECT (C380C 
CSECT (C380C 
CSECT (C380C 


WER RC eH He ae ae ake a 2 2c 2 2 a 2h 2 ake 2 2 2k ok fe afc fe oie kc ok kK ote ae kak 2 ok 


ee 


COPYRIGHT 


LENGTH (28) 


LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 
LENGTH (1) 


LENGTH (2) 


LENGTH (2) 


LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (2) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 
LENGTH (1) 
LENGTH (2) 
LENGTH (1) 





PAGE 09 
IBM CORP 1976 


a 
’ 
ft 


\ 
4 


ae, 


ee 


Roe SS 


